home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 June / 1987-06.d64 / disk vacuum (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  34 lines
  1. 10 poke53280,6:poke53281,6:print"[147]"chr$(14):dimf$(144),mt$(144)
  2. 20 printspc(13)"[155][196][201][211][203] [214][193][195][213][213][205]"
  3. 30 printspc(5)"[201][206][211][197][210][212] [196][201][211][203] [193][206][196] [208][210][197][211][211] [193][206][217] [203][197][217]"
  4. 40 poke198,0:wait198,1:geta$
  5. 50 print"[147]"spc(11)"[210][197][193][196][201][206][199] [196][201][210][197][195][212][207][210][217]"
  6. 60 fori=830to899:readd:pokei,d
  7. 70 cs=cs+d:next:ifcs<>9588then print"[197][210][210][207][210][146] in data statements":end
  8. 80 fori=0to144:f$(i)=chr$(32)+"                  ":next
  9. 90 open1,8,0,"$":sys830:close1:c=peek(0)-1
  10. 100 print"[147]"spc(5)"[198]ile name"spc(11)"[198]ile type":x=0:fori=1toc
  11. 110 print"[145]     "left$(f$(i),18)"[146]       ";:w$=mid$(f$(i),18,1)
  12. 120 ft$="[208][210][199]":ifw$="s"thenft$="[211][197][209]"
  13. 130 ifw$="r"thenft$="[210][197][204]"
  14. 140 ifw$="d"thenft$="[196][197][204]"
  15. 150 printft$:input"     [196]elete this file (y/n)  n[157][157][157]";tm$:iftm$="n"then200
  16. 160 x=x+1:l=3
  17. 170 ck$=right$(f$(i),l):ifleft$(ck$,1)>" "then190
  18. 180 l=l+1:goto170
  19. 190 mt$(x)=mid$(f$(i),1,20-l):mt$(x)=mid$(mt$(x),2,19-l)
  20. 200 print"[145][145][145][145]                ":next:print"[145]"spc(16)"                 "
  21. 210 ifx=0thenprint"[145]"spc(11)"[206][207][160][198][201][204][197][211] [196][197][204][197][212][197][196][146]     ":end
  22. 220 print"[145]"spc(13)"[211][195][210][193][212][195][200][201][206][199]...":open15,8,15,"s0:"+mt$(1):gosub310
  23. 230 ifx=1then250
  24. 240 fori=2tox:print#15,"s0:"+mt$(i):next
  25. 250 close15:print"[145]"spc(12)"[214][193][204][201][196][193][212][201][206][199] [196][201][211][203]":open1,8,15,"v0":close1:end
  26. 260 data 169,255,133,0,165,55,133,71,165,56,133,72,162,1,32,198,255
  27. 270 data 166,0,232,134,0,216,56,165,71,233,20,133,71,176,5,166,72,202
  28. 280 data 134,72,32,207,255,164,144,208,22,201,34,208,245,160,0,32
  29. 290 data 207,255,201,34,240,249,145,71,200,192,19,208,242,240,207,32
  30. 300 data 204,255,96
  31. 310 input#15,a,b$,c$,d$:ifa<2thenreturn
  32. 320 print"[147][196]isk error #"a,b$:print""spc(7)"[208]ress any key to start over"
  33. 330 poke198,0:wait198,1:geta$:run
  34.